home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #41 (1989-11-05)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #41 (1989-11-05)(Amiga User Gruppe Einzugsgebiet 4000).adf / Hilfen / NLQed V1.0 / NLQed (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-11-04  |  11KB  |  489 lines
  1. REM ########################################################################
  2. REM #                                                                      #
  3. REM #                        WISSoft präsentiert                           #
  4. REM #                                                                      #
  5. REM #                             N L Q  e d                               #
  6. REM #                                                                      #
  7. REM #               NLQ-Druckzeichen-Editor fuer STAR LC-10                #
  8. REM #                                                                      #
  9. REM #                    (c) 1989 by Roland S. Speth                       #
  10. REM #                                                                      #
  11. REM ########################################################################
  12.  
  13. CLEAR ,50000
  14. SCREEN 2,640,200,2,2
  15.  
  16. WINDOW 5,"",(1,0)-(630,11),16,2
  17.  
  18. PALETTE 0,0.2,0.5,0.8: PALETTE 1,0.2,0.5,0.8
  19. COLOR 0,1: LINE (1,0)-(630,10),1,bf
  20. SetAt 1,1: PRINT " NLQed - NLQ-DRUCKZEICHEN-EDITOR FÜR STAR LC-10        (c) by Roland S. Speth"
  21.  
  22. WINDOW 4," NLQ-Zeichendefinitionen Nr.41-78",(320,14)-(630,181),16,2
  23. WINDOW 3," NLQ-Zeichendefinitionen Nr. 1-40",(320,14)-(630,181),16,2
  24. WINDOW 2," NLQ-Zeicheneditor",(1,14)-(310,181),16,2
  25.  
  26. PALETTE 0,0.2,0.5,0.8: PALETTE 1,0,0,0: PALETTE 2,1,1,1: PALETTE 3,1,0,0
  27.  
  28. MENU 1,0,1,"Projekt"
  29. MENU 1,1,1,"Zeichensatz laden"
  30. MENU 1,2,1,"Zeichensatz speichern"
  31. MENU 1,3,1,"Zeichensatz speichern als"
  32. MENU 1,4,1,"Zeichensatz ausdrucken"
  33. MENU 1,5,1,"Programm beenden"
  34. MENU 2,0,1,"Editieren"
  35. MENU 2,1,1,"Gewähltes Zeichen löschen"
  36. MENU 2,2,1,"Gesamten Zeichensatz löschen"
  37. MENU 2,3,1,"Gewähltes Zeichen kopieren nach"
  38. MENU 2,4,1,"Gewähltes Zeichen zeichnen"
  39. MENU 2,5,1,"Gesamten Zeichensatz zeichnen"
  40. MENU 3,0,0,""
  41. MENU 4,0,0,""
  42.  
  43. ON MENU GOSUB Menues
  44.  
  45. DIM code(78,46),ascii(78)
  46.  
  47. FOR nn%=1 TO 78: code(nn%,0)=128: ascii(nn%)=nn%: NEXT nn%
  48. Abfragezeit=TIMER-3
  49.  
  50. WINDOW 2
  51.  
  52. GOSUB NeuAufbau
  53.    
  54. Steuern:
  55.    GOSUB Maus
  56.    w%=WINDOW(0)
  57.    WINDOW w%
  58.  
  59.    REM Umschalten zwischen Fenster 3 und 4 
  60.    IF w%>2 AND x%>=294 AND y%>=160 THEN
  61.       xx%=((n%-1) MOD 8)*36+11
  62.       yy%=((n%-1)\8)*30+6-150*INT(n%/41)
  63.       LINE (xx%,yy%)-(xx%+32,yy%+19),0,b
  64.       IF w%=4 THEN w%=3: WINDOW 3 :ELSE w%=4: WINDOW 4
  65.       IF n%\41=w%-3 THEN
  66.          xx%=((n%-1) MOD 8)*36+11
  67.          yy%=((n%-1)\8)*30+6-150*INT(n%/41)
  68.          LINE (xx%,yy%)-(xx%+32,yy%+19),3,b
  69.       END IF
  70.       GOTO Steuern
  71.    END IF
  72.  
  73.    REM Auswahl des zu definierenden/zu ueberkopierenden Zeichens
  74.    IF w%>2 AND x%>=12 AND x%<=294 AND y%>=7 AND y%<=147 THEN
  75.       nn%=(w%-3)*40+8*INT((y%-7)/30)+INT((x%-12)/36)+1
  76.       IF nn%<=78 THEN n%=nn%
  77.       IF n%<>altn% THEN
  78.          IF KopierWarten%=0 THEN
  79.             WINDOW OUTPUT 2
  80.             LINE (35,7)-(285,142),2,bf
  81.             FOR y%=10 TO 125 STEP 16
  82.                FOR x%=40 TO 260 STEP 20
  83.                   LINE (x%,y%)-(x%+20,y%+16),1,b
  84.                NEXT x%
  85.             NEXT y%
  86.          END IF
  87.          WINDOW OUTPUT 3+INT(altn%/41)
  88.          xx%=((altn%-1) MOD 8)*36+11
  89.          yy%=((altn%-1)\8)*30+6-150*INT(altn%/41)
  90.          LINE (xx%,yy%)-(xx%+32,yy%+19),0,b
  91.          WINDOW OUTPUT 3+INT(n%/41)
  92.          xx%=((n%-1) MOD 8)*36+11
  93.          yy%=((n%-1)\8)*30+6-150*INT(n%/41)
  94.          LINE (xx%,yy%)-(xx%+32,yy%+19),3,b
  95.       END IF
  96.       IF KopierWarten%=1 THEN
  97.          LINE (xx%+1,yy%+1)-(xx%+31,yy%+18),2,bf
  98.          ascii(n%)=ascii(altn%)
  99.          FOR Index%=0 TO 46
  100.             code(n%,Index%)=code(altn%,Index%)
  101.          NEXT Index%
  102.          SetAt xx%-3,yy%+21: PRINT ascii(n%);SPACE$(4-LEN(STR$(ascii(n%))))
  103.       END IF
  104.       FOR Durchg%=1 TO 2
  105.          FOR Index%=1 TO 23
  106.             code=code(n%,Index%+23*Durchg%-23)
  107.             FOR CodeExp%=7 TO 0 STEP -1
  108.                IF code-2^CodeExp%>=0 THEN
  109.                   code=code-2^CodeExp%
  110.                   IF KopierWarten%=1 THEN
  111.                      xx%=15+Index%+36*((n%-1) MOD 8)
  112.                      yy%=21-CodeExp%*2+Durchg%+30*((n%-1)\8)-150*INT(n%/41)
  113.                      IF n%<41 THEN WINDOW 3 :ELSE WINDOW 4
  114.                      PSET (xx%,yy%),1
  115.                   ELSE
  116.                      xx%=Index%*10+41
  117.                      yy%=(6-CodeExp%)*16+8*Durchg%+26
  118.                      WINDOW OUTPUT 2
  119.                      FOR r%=1 TO 6: CIRCLE(xx%,yy%),r%,3,,,0.44: NEXT r%
  120.                   END IF
  121.                END IF
  122.             NEXT CodeExp%
  123.          NEXT Index%
  124.       NEXT Durchg%
  125.       altn%=n%
  126.       IF KopierWarten%=1 THEN KopierWarten%=0
  127.       WINDOW OUTPUT 2
  128.       SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)
  129.    END IF
  130.    
  131.    IF KopierWarten%=1 THEN Steuern
  132.    
  133.    REM Aendern der ASCII-Zuordnung
  134.    IF w%=2 AND x%>=46 AND x%<=275 AND y%>=148 AND y%<=160 AND TIMER-Abfragezeit>3 THEN
  135.       ASCIIeingabe:
  136.       SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)
  137.       SetAt 144,148: LINE INPUT in$
  138.       IF in$<>"" THEN
  139.          IF VAL(in$)<1 OR VAL(in$)>255 THEN ASCIIeingabe
  140.          ascii(n%)=INT(VAL(in$))
  141.       END IF
  142.       WINDOW OUTPUT 2
  143.       SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)
  144.       xx%=((n%-1) MOD 8)*36+7
  145.       yy%=((n%-1)\8)*30+27-150*INT(n%/41)
  146.       WINDOW OUTPUT 3+INT(n%/41)
  147.       SetAt xx%,yy%: PRINT ascii(n%);SPACE$(4-LEN(STR$(ascii(n%))))
  148.       WINDOW 2
  149.    END IF
  150.    
  151.    REM Zeichendefinition im Editorfenster
  152.    IF w%=2 AND x%>=46 AND x%<=275 AND y%>=15 AND y%<=142 THEN
  153.  
  154.       CodeExp%=8-INT((y%+1)/16)
  155.       Durchg%=INT(9.25-(y%+6)/16)-INT(9.25-(y%+14)/16)+1
  156.       Index%=INT((x%-36)/10)
  157.    
  158.       xx%=Index%*10+41
  159.       yy%=(6-CodeExp%)*16+8*Durchg%+26
  160.    
  161.       WINDOW 2
  162.       f%=POINT(xx%,yy%)
  163.       IF f%=3 THEN f%=2 :ELSE f%=3
  164.       FOR r%=1 TO 6: CIRCLE(xx%,yy%),r%,f%,,,0.44: NEXT r%
  165.       IF Durchg%=2 AND f%=2 THEN LINE(xx%-6,yy%)-(xx%+6,yy%),1
  166.       IF Index% MOD 2=0 AND f%=2 THEN LINE(xx%-1,yy%-4)-(xx%-1,yy%+4),1
  167.       
  168.       xx%=15+Index%+36*((n%-1) MOD 8)
  169.       yy%=21-CodeExp%*2+Durchg%+30*((n%-1)\8)-150*INT(n%/41)
  170.  
  171.       IF n%<41 THEN WINDOW OUTPUT 3 :ELSE WINDOW OUTPUT 4
  172.       IF f%=3 THEN f%=1 :ELSE f%=2
  173.       PSET (xx%,yy%),f%
  174.       WINDOW 2       
  175.    
  176.       IF f%=1 THEN CodePlus%=2^CodeExp% :ELSE CodePlus%=-2^CodeExp%
  177.       code(n%,Index%+23*Durchg%-23)=code(n%,Index%+23*Durchg%-23)+CodePlus%
  178.    
  179.    END IF
  180.    
  181.    GOTO Steuern
  182.  
  183. END
  184.  
  185. NeuAufbau:
  186.  
  187.    WINDOW OUTPUT 2
  188.    LINE (35,7)-(285,142),2,bf
  189.    FOR y%=10 TO 125 STEP 16
  190.       FOR x%=40 TO 260 STEP 20
  191.          LINE (x%,y%)-(x%+20,y%+16),1,b
  192.       NEXT x%
  193.    NEXT y%
  194.    SetAt 40,148 : PRINT "ASCII-Code: ";1;SPACE$(19)   
  195.    
  196.    n%=0
  197.    
  198.    WINDOW OUTPUT 3
  199.    FOR y%=7 TO 127 STEP 30
  200.       FOR x%=12 TO 264 STEP 36
  201.          n%=n%+1
  202.          LINE (x%-1,y%-1)-(x%+31,y%+18),0,b
  203.          LINE (x%,y%)-(x%+30,y%+17),2,bf
  204.          SetAt x%-4,y%+20: PRINT ascii(n%);SPACE$(4-LEN(STR$(ascii(n%))))
  205.       NEXT x%
  206.    NEXT y%
  207.    LINE (294,160)-(294,168),1
  208.    LINE -(310,160),1
  209.    LINE -(294,160),1
  210.    LINE (11,6)-(43,25),3,b
  211.    
  212.    WINDOW OUTPUT 4
  213.    FOR y%=7 TO 127 STEP 30
  214.       FOR x%=12 TO 264-72*INT(y%/127) STEP 36
  215.          n%=n%+1
  216.          LINE (x%-1,y%-1)-(x%+31,y%+18),0,b
  217.          LINE (x%,y%)-(x%+30,y%+17),2,bf
  218.          SetAt x%-4,y%+20: PRINT ascii(n%);SPACE$(4-LEN(STR$(ascii(n%))))
  219.       NEXT x%
  220.    NEXT y%
  221.    LINE (294,160)-(294,168),1
  222.    LINE -(310,160),1
  223.    LINE -(294,160),1
  224.  
  225.    altn%=1
  226.    n%=1
  227.  
  228. RETURN
  229.  
  230. Laden:
  231.    GOSUB Sicherheit
  232.    IF ok=0 THEN LadeEnde
  233.    NeuName:
  234.    WINDOW 2
  235.    SetAt 40,148 : PRINT "Dateiname: "Dateiname$+SPACE$(23-LEN(Dateiname$))
  236.    SetAt 128,148: LINE INPUT in$
  237.    IF in$<>"" THEN Dateiname$=in$
  238.    IF Dateiname$="" THEN BEEP: GOTO LadeEnde
  239.    IF LEN(Dateiname$)>23 THEN BEEP: Dateiname$="": GOTO NeuName
  240.    
  241.    OPEN Dateiname$ FOR INPUT AS #2
  242.    FOR n%=1 TO 78
  243.       INPUT #2,ascii(n%)
  244.       FOR Index%=0 TO 46
  245.          INPUT #2,code(n%,Index%)
  246.       NEXT Index%
  247.    NEXT n%
  248.    CLOSE #2
  249.  
  250.    n%=1
  251.  
  252.    GOSUB NeuAufbau
  253.    GOSUB Zeichnen
  254.  
  255.    LadeEnde:
  256.    WINDOW 2
  257.    SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)
  258.  
  259. RETURN
  260.  
  261. SpeichernAls:   
  262.    WINDOW 2
  263.    SetAt 40,148 : PRINT "Dateiname: "Dateiname$+SPACE$(23-LEN(Dateiname$))
  264.    SetAt 128,148: LINE INPUT in$
  265.    IF in$<>"" THEN Dateiname$=in$     
  266.  
  267. Speichern:   
  268.    IF Dateiname$="" OR LEN(Dateiname$)>23 THEN BEEP: Dateiname$="": GOTO SpeichernAls
  269.    OPEN Dateiname$ FOR OUTPUT AS #2
  270.    FOR nn%=1 TO 78
  271.       PRINT #2,ascii(nn%)
  272.       FOR Index%=0 TO 46
  273.          PRINT #2,code(nn%,Index%)
  274.       NEXT Index%
  275.    NEXT nn%
  276.    CLOSE #2
  277.    
  278.    WINDOW OUTPUT 2
  279.    SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)
  280.    
  281. RETURN
  282.  
  283. Drucken:
  284.    WINDOW OUTPUT 2
  285.    SetAt 40,148: PRINT "Moment bitte..."
  286.  
  287.    Drucknr=Drucknr+1
  288.    IF Drucknr=1 THEN
  289.       OPEN "par:" FOR OUTPUT AS #1 LEN=1
  290.       PRINT #1,CHR$(27);"x1";
  291.       PRINT #1,CHR$(27);":";CHR$(0);CHR$(0);CHR$(0);
  292.    END IF
  293.  
  294.    PRINT #1,CHR$(27);"&";CHR$(0);CHR$(60);CHR$(137);
  295.    FOR ascii=60 TO 137
  296.       FOR Index%=0 TO 46
  297.          PRINT #1,CHR$(code(ascii-59,Index%));
  298.       NEXT Index%
  299.    NEXT ascii
  300.    PRINT #1,""
  301.    PRINT #1,CHR$(27);"%1";
  302.    
  303.    FOR ascii=60 TO 137
  304.       PRINT #1,CHR$(ascii);
  305.    NEXT ascii
  306.    PRINT #1," "
  307.    
  308.    WINDOW OUTPUT 2
  309.    SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)
  310.  
  311. RETURN
  312.   
  313. EinzelLoeschen:
  314.    GOSUB Sicherheit
  315.    IF ok=0 THEN EinzelLoeschEnde
  316.    FOR Index%=1 TO 46
  317.       code(n%,Index%)=0
  318.    NEXT Index%
  319.    ascii(n%)=n%
  320.    WINDOW OUTPUT 2
  321.    LINE (35,7)-(285,142),2,bf
  322.    FOR y%=10 TO 125 STEP 16
  323.       FOR x%=40 TO 260 STEP 20
  324.          LINE (x%,y%)-(x%+20,y%+16),1,b
  325.       NEXT x%
  326.    NEXT y%
  327.    xx%=((n%-1) MOD 8)*36+12
  328.    yy%=((n%-1)\8)*30+7-150*INT(n%/41)
  329.    WINDOW OUTPUT 3+INT(n%/41)
  330.    LINE (xx%,yy%)-(xx%+30,yy%+17),2,bf
  331.    SetAt xx%-4,yy%+20: PRINT ascii(n%);SPACE$(4-LEN(STR$(ascii(n%))))
  332.    EinzelLoeschEnde:
  333.    WINDOW OUTPUT 2
  334.    SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)   
  335. RETURN
  336.  
  337. AllesLoeschen:
  338.    GOSUB Sicherheit
  339.    IF ok=0 THEN AllesLoeschEnde 
  340.    FOR n%=1 TO 78
  341.       FOR Index%=1 TO 46
  342.          code(n%,Index%)=0
  343.       NEXT Index%
  344.       ascii(n%)=n%
  345.       xx%=((n%-1) MOD 8)*36+12
  346.       yy%=((n%-1)\8)*30+7-150*INT(n%/41)
  347.       WINDOW OUTPUT 3+INT(n%/41)
  348.       LINE (xx%,yy%)-(xx%+30,yy%+17),2,bf
  349.       LINE (xx%-1,yy%-1)-(xx%+31,yy%+18),0,b
  350.    NEXT n%
  351.    AllesLoeschEnde:
  352.    WINDOW OUTPUT 2
  353.    SetAt 40,148: PRINT "ASCII-Code: ";1;SPACE$(19)
  354. RETURN NeuAufbau
  355.  
  356. KopierenNach:
  357.    WINDOW OUTPUT 2
  358.    SetAt 40,148: PRINT "Wohin kopieren?"+SPACE$(19)
  359.    KopierWarten%=1
  360. RETURN Steuern
  361.  
  362. Ende:
  363.    GOSUB Sicherheit
  364.    IF ok=0 THEN EndeEnde
  365.    CLOSE
  366.    MENU RESET
  367.    WINDOW CLOSE 4
  368.    WINDOW CLOSE 3
  369.    WINDOW CLOSE 2
  370.    SCREEN CLOSE 2
  371.    END
  372.    
  373.    EndeEnde:
  374.    WINDOW OUTPUT 2
  375.    SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)
  376. RETURN
  377.  
  378. EinzelZeichnen:
  379.    FOR Durchg%=1 TO 2
  380.       FOR Index%=1 TO 23
  381.          code=code(n%,Index%+23*Durchg%-23)
  382.          FOR CodeExp%=7 TO 0 STEP -1
  383.             IF code-2^CodeExp%>=0 THEN
  384.                code=code-2^CodeExp%
  385.                xx%=15+Index%+36*((n%-1) MOD 8)
  386.                yy%=21-CodeExp%*2+Durchg%+30*((n%-1)\8)-150*INT(n%/41)
  387.                WINDOW 3+INT(n%/41)
  388.                PSET (xx%,yy%),1
  389.             END IF
  390.          NEXT CodeExp%
  391.       NEXT Index%
  392.    NEXT Durchg%
  393. RETURN   
  394.  
  395. Zeichnen:
  396.    WINDOW OUTPUT 2
  397.    SetAt 40,148 : PRINT "Zeichnen: 300 s, [ESC] Abbruch"
  398.    FOR nn%=1 TO 78
  399.       xx%=((nn%-1) MOD 8)*36+12
  400.       yy%=((nn%-1)\8)*30+7-150*INT(nn%/41)
  401.       WINDOW OUTPUT 3+INT(nn%/41)
  402.       LINE (xx%,yy%)-(xx%+30,yy%+17),2,bf
  403.       COLOR 3: SetAt xx%-4,yy%+20
  404.       PRINT ascii(nn%);SPACE$(4-LEN(STR$(ascii(nn%))))      
  405.       FOR Durchg%=1 TO 2
  406.          FOR Index%=1 TO 23
  407.             code=code(nn%,Index%+23*Durchg%-23)
  408.             FOR CodeExp%=7 TO 0 STEP -1
  409.                IF code-2^CodeExp%>=0 THEN
  410.                   code=code-2^CodeExp%
  411.                   IF nn%=n% THEN
  412.                      xx%=Index%*10+41
  413.                      yy%=(6-CodeExp%)*16+8*Durchg%+26
  414.                      WINDOW OUTPUT 2
  415.                      FOR r%=1 TO 6: CIRCLE(xx%,yy%),r%,3,,,0.44: NEXT r%
  416.                   END IF
  417.                   xx%=15+Index%+36*((nn%-1) MOD 8)
  418.                   yy%=21-CodeExp%*2+Durchg%+30*((nn%-1)\8)-150*INT(nn%/41)
  419.                   IF nn%<41 THEN WINDOW 3 :ELSE WINDOW 4
  420.                   PSET (xx%,yy%),1
  421.                   in$=INKEY$
  422.                   IF in$=CHR$(27) THEN
  423.                      xx%=((nn%-1) MOD 8)*36+12
  424.                      yy%=((nn%-1)\8)*30+7-150*INT(nn%/41)
  425.                      COLOR 1: SetAt xx%-4,yy%+20
  426.                      PRINT ascii(nn%);SPACE$(4-LEN(STR$(ascii(nn%))))      
  427.                      GOTO ZeichenEnde
  428.                   END IF
  429.                END IF
  430.             NEXT CodeExp%
  431.             IF nn%<41 THEN WINDOW 3 :ELSE WINDOW 4
  432.             in$=INKEY$
  433.             IF in$=CHR$(27) THEN
  434.                xx%=((nn%-1) MOD 8)*36+12
  435.                yy%=((nn%-1)\8)*30+7-150*INT(nn%/41)
  436.                COLOR 1: SetAt xx%-4,yy%+20
  437.                PRINT ascii(nn%);SPACE$(4-LEN(STR$(ascii(nn%))))      
  438.                GOTO ZeichenEnde
  439.             END IF
  440.          NEXT Index%
  441.       NEXT Durchg%
  442.       xx%=((nn%-1) MOD 8)*36+12
  443.       yy%=((nn%-1)\8)*30+7-150*INT(nn%/41)
  444.       WINDOW OUTPUT 3+INT(nn%/41)
  445.       COLOR 1: SetAt xx%-4,yy%+20
  446.       PRINT ascii(nn%);SPACE$(4-LEN(STR$(ascii(nn%))))      
  447.    NEXT nn%
  448.    ZeichenEnde:
  449.    WINDOW 2
  450. RETURN
  451.  
  452. Sicherheit:
  453.    WINDOW 2
  454.    SetAt 40,148: PRINT "[Auf geht's]       [Bloß nicht]"
  455.    Mausfragen:
  456.    GOSUB Maus
  457.    IF WINDOW(0)<>2 OR x%<40 OR x%>275 OR y%<148 OR y%>160 THEN Mausfragen
  458.    IF x%<=158 THEN ok=1 :ELSE ok=0
  459.    SetAt 40,148 : PRINT "ASCII-Code: ";ascii(n%);SPACE$(19)
  460.    Abfragezeit=TIMER
  461. RETURN
  462.  
  463. Maus:
  464.    Warten1:
  465.    Status=MOUSE(0): IF Status<0 THEN Warten1
  466.    MENU ON
  467.    Warten2:
  468.    Status=MOUSE(0): IF Status=0 THEN Warten2
  469.    MENU OFF
  470.    x%=MOUSE(1): y%=MOUSE(2)
  471. RETURN
  472.  
  473. Menues:
  474.    ON MENU(0) GOTO Menue1,Menue2
  475.    Menue1:
  476.       ON MENU(1) GOSUB Laden,Speichern,SpeichernAls,Drucken,Ende
  477.       GOTO MenueEnde
  478.    Menue2: 
  479.       ON MENU(1) GOSUB EinzelLoeschen,AllesLoeschen,KopierenNach,EinzelZeichnen,Zeichnen
  480.    MenueEnde:
  481. RETURN
  482.  
  483. SUB SetAt (a%,b%) STATIC
  484.    a1&=WINDOW(8)+36
  485.    a2&=WINDOW(8)+38
  486.    POKEW a1&,a%
  487.    POKEW a2&,b%+6
  488. END SUB
  489.